home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / blitzbasic / blitz-list200994.lha / blitz-list / 000071_blitz-list-request_Mon Jul 18 01:35:20 1994.msg < prev    next >
Internet Message Format  |  1994-09-20  |  2KB
  1. Received: from zeus (zeus.usq.edu.au [139.86.128.2]) by kantti.helsinki.fi (8.6.9/8.6.5) with SMTP id BAA15854 for <blitz-list@helsinki.fi>; Mon, 18 Jul 1994 01:34:50 +0300
  2. Received: from helios.usq.edu.au (helios) by zeus with SMTP id AA15272
  3.   (5.65c/IDA-1.4.4 for <blitz-list@helsinki.fi>); Mon, 18 Jul 1994 08:34:02 -1000
  4. Message-Id: <199407181834.AA15272@zeus>
  5. Received: by helios.usq.edu.au
  6. From: tom duncan <duncan@zeus.usq.edu.au>
  7. Subject: Iff loading etc.
  8. To: blitz-list@helsinki.fi
  9. Date: Mon, 18 Jul 1994 08:30:26 +1000 (EST)
  10. MIME-Version: 1.0
  11. Content-Type: text/plain; charset="us-ascii"
  12. Content-Transfer-Encoding: 7bit
  13. X-Status: 
  14. Status: RO
  15.  
  16. Hi all.
  17.  
  18. I am having a problem with loading IFF iamges into screens.
  19. When I load into a screen I get an anoying flash on the current screen.
  20. Any ideas anyone. Also has anyone found a QUICKER IFF loader. Speed is of
  21. the essence with my project and it gets realy bogged down with the current
  22. loader.
  23.  
  24. Here is a listing of my loader. Any ideas anyone?
  25.  
  26.    ; load or initialise a screen into S
  27.    USEPATH Events()
  28.    If Len(\_File)>0
  29.       ; Load image
  30.       ILBMInfo \_File
  31.       w.w=ILBMWidth
  32.       h.w=ILBMHeight
  33.       d.w=ILBMDepth
  34.       Id.l=ILBMViewMode
  35.       Free Window S : Free Screen S : Free BitMap S : Free GadgetList S
  36.       BitMap S,w,h,d
  37.       Screen S,0,800,w,h,d,Id,"",1,2,S
  38.       HideScreen S
  39.       ; Now Open Window onto Screen
  40.       Window S,0,0,w,h,$0900,"",1,2
  41.       LoadScreen S,\_File,S
  42.       Use Palette S
  43.       OK.b=True
  44.       MoveScreen S,0,-800
  45.    Else
  46.       OK.b=False
  47.    EndIf
  48.  
  49. Thanks in advance
  50. Tom Duncan
  51. duncan@usq.edu.au
  52.  
  53.